##stringtype E
##shortstrings
/****************************************************************
   This file was created automatically by `FlexCat V1.4'
   from "%f0".
   Do not edit by hand!
****************************************************************/


	/* External modules */
MODULE 'locale' , 'libraries/locale'
MODULE 'utility/tagitem'

	/* Object definitions */
OBJECT fc_type
	id	:	LONG
	str	:	LONG
ENDOBJECT

	/* Global variables */
DEF catalog_%b : PTR TO catalog
DEF %i : fc_type


	/* Opening catalog procedure */
PROC open_%b_catalog( loc : PTR TO locale , language : PTR TO CHAR )

	DEF tag , tagarg

	%i.id := %d ; %i.str := %s

	close_%b_catalog()

	IF (localebase AND (catalog_%b = NIL))

		IF language

			tag := OC_LANGUAGE
			tagarg := language

		ELSE

			tag:= TAG_IGNORE

		ENDIF

		catalog_%b := OpenCatalogA( loc , '%b.catalog' ,
									[	OC_BUILTINLANGUAGE , %l ,
										tag , tagarg ,
										OC_VERSION , %v ,
										TAG_DONE	])

	ENDIF

ENDPROC

	/* Closing catalog procedure */
PROC close_%b_catalog()

	IF localebase THEN CloseCatalog( catalog_%b )
	catalog_%b := NIL

ENDPROC


	/* Procedure which returns the correct string according to the catalog */
PROC get_%b_string( fcstr : PTR TO fc_type ) RETURN IF catalog_%b THEN GetCatalogStr( catalog_%b , fcstr.id , fcstr.str ) ELSE fcstr.str
/****************************************************************
   End of the automatically created part!
****************************************************************/
